home *** CD-ROM | disk | FTP | other *** search
/ Mobiclic 48 / MOBICLIC 48.ISO / pc / DATA / SHARED / COMMUNS.CST / 00002_Script_gestionnaires généraux < prev    next >
Text File  |  2002-09-18  |  2KB  |  75 lines
  1. -------------------------------------------------------------------
  2. ---------------------- GESTIONNAIRES GENERAUX ---------------------
  3. -------------------------------------------------------------------
  4.  
  5. -- variables globales
  6. global gMyParent
  7. global gModule
  8. global volumeOn
  9. global version
  10. global ValidNav
  11. global gTypeAboChoisi
  12. global gListeCom
  13.  
  14. -- initialisation de la position des boutons menu droite
  15. on prepareMovie
  16.   case gMyParent of
  17.     0:      
  18.       sprite(116).loc = point(575,1)
  19.       sprite(117).loc = point(545,1)
  20.       sprite(118).member = member("quitter 0")
  21.       sprite(118).loc = point(634,2)
  22.     1:      
  23.       sprite(116).loc = point(512,1)
  24.       sprite(117).loc = point(482,1)
  25.       sprite(118).member = member("quitter 1")
  26.       sprite(118).loc = point(634,2)
  27.     2:     
  28.       sprite(116).loc = point(512,1)
  29.       sprite(117).loc = point(482,1)
  30.       sprite(118).member = member("quitter 2")
  31.       sprite(118).loc = point(634,2)
  32.   end case
  33. end
  34.  
  35. -- initialisation de la navigation
  36. on initMovie
  37.   put "Ouverture du film : " & the movieName & " α " & the time
  38.   put "MΘmoire disponible : " & (the freeBytes/8) & " KO"
  39.   -- activation des raccourcis clavier
  40.   touchesOn
  41.   -- dissimulation point pour glisserSur
  42.   masquerPistes value(member("PPGS").text)
  43.   ValidNav = value(member("nav").line[1])
  44.   --initialisation des pictos de la navigation
  45.   sprite(112).member = member "precedent"
  46.   sprite(113).member = member "suivant"
  47.   sprite(114).member = member "debRub"
  48.   sprite(115).member = member "vitrine"
  49.   case gModule of
  50.     1:
  51.       if the movieName <> "prom03.dir" then
  52.         sprite(116).member = member "cadeau"
  53.       end if 
  54.     2:
  55.       sprite(116).member = member "no cadeau"
  56.   end case
  57.   sprite(117).member = member "no abo"
  58.   -- on teste erreurs de coherence entre gListeCom et gTypeAboChoisi
  59.   if the movieName = "menu.dir" then exit
  60.   if the movieName <> "prom02.dir" then
  61.     if gTypeAboChoisi = 0 and count(gListeCom) <> 0 then
  62.       deleteAt(gListeCom,1)
  63.     end if  
  64.   end if
  65. end
  66.  
  67. -- actions communes α tous les films
  68. on stop
  69.   if the pauseState = true then
  70.     go to the frame
  71.   else
  72.     pause
  73.   end if
  74. end stop
  75.